home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO018.dsk / JOYSTICK.TEST.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  37 lines
  1. 100  REM JOYSTICK TEST
  2. 110  REM BY KEITH FALKNER
  3. 120  REM 
  4. 130  PRINT  CHR$(21): TEXT : HOME : SPEED= 255: NORMAL 
  5. 140  DEF  FN D(Z) =  INT(Z *39/255 +.5)
  6. 150 B0 = 49249:B1 = 49250:H = 128
  7. 160  POKE 49168,0
  8. 170  FOR I = 768 TO 794: READ D: POKE I,D: NEXT 
  9. 180  VTAB 6: PRINT "JOYSTICK/PADDLE TEST by Keith Falkner."
  10. 190  VTAB 24: PRINT "Press the ESCape key for Startup menu.";
  11. 200  VTAB 14: PRINT 
  12. 210  GOSUB 450: IF Z GOTO 250
  13. 220  PRINT "PLUG IN JOYSTICK OR PADDLES TO CONTINUE."
  14. 230  IF  PEEK(49152) = 155 GOTO 430
  15. 240  GOSUB 450: IF Z = 0 GOTO 230
  16. 250  GR :X = 1.1:Y = 1.1
  17. 260  REM MAIN LOOP
  18. 270  IF  PEEK(49152) = 155 GOTO 430
  19. 280 XO = X:P0 =  PDL(0):X =  FN D(P0): IF XO = X GOTO 330
  20. 290  COLOR= 0
  21. 300  IF Y  THEN  VLIN 0,Y -1 AT XO
  22. 310  IF Y <39  THEN  VLIN Y +1,39 AT XO
  23. 320  COLOR= 15: PLOT XO,Y: VLIN 0,39 AT X
  24. 330 YO = Y:P1 =  PDL(1):Y =  FN D(P1): IF YO = Y GOTO 380
  25. 340  COLOR= 0
  26. 350  IF X  THEN  HLIN 0,X -1 AT YO
  27. 360  IF X <39  THEN  HLIN X +1,39 AT YO
  28. 370  COLOR= 15: PLOT X,YO: HLIN 0,39 AT Y
  29. 380  COLOR= 1 +15 * RND(1): PLOT X,Y
  30. 390  VTAB 22: PRINT  TAB( 12);: IF  PEEK(B0) > = H  THEN  INVERSE 
  31. 400  PRINT "X = "P0;: NORMAL : PRINT  TAB( 23);: IF  PEEK(B1) > = H  THEN  INVERSE 
  32. 410  PRINT "Y = "P1;: NORMAL : PRINT "  "
  33. 420  GOTO 270
  34. 430  TEXT : HOME : PRINT  CHR$(4)"-STARTUP": END 
  35. 440  REM CALL ML TO FIND STICK
  36. 450  CALL 768:Z =  PEEK(795): RETURN 
  37. 460  DATA 173,112,192,160,0,173,100,192,16,13,173,101,192,16,8,169,1,32,168,252,200,208,238,140,27,3,96